home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
TPUG Xtras
/
Unreleased
/
(c)sd.d64
/
combo demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-02-04
|
884b
|
42 lines
10 POKE52,48:POKE56,48:CLR
20 V=53248: PT=2040
30 POKEV+33,1:POKEV+32,2:PRINT"[147]"
40 POKEV+39,0:POKEV+40,0
45 POKEV+23,3:POKEV+29,3
50 GOSUB10000
60 POKE PT,192: POKE PT+1,193
100 POKEV+1,100:POKEV+3,100
110 POKEV,0:POKEV+2,48
115 POKEV+21,3
120 FORX=0TO207
130 POKEV,X:POKEV+2,X+48
140 NEXT
150 FORX=207TO0STEP-1
160 POKEV,X:POKEV+2,X+48
170 NEXT
180 GETT$:IFT$=""THEN180
190 POKEV,100:POKEV+2,148
200 GETT$:IFT$=""THEN200
210 POKEV+40,3
900 GETT$:IFT$=""THEN900
999 STOP
10000 MEM=12288:FORI= 0 TO 15 :FORJ=0TO7
10010 READXX:POKEMEM+I*8+J,XX:NEXTJ,I
10020 RETURN
10030 DATA0,0,0,0,0,0,0,0
10040 DATA0,0,0,0,0,0,31,0
10050 DATA0,255,0,3,255,0,15,255
10060 DATA0,63,255,0,255,255,3,241
10070 DATA140,7,241,140,1,241,140,0
10080 DATA127,255,0,63,255,0,15,255
10090 DATA0,3,231,0,7,131,0,14
10100 DATA3,0,28,1,0,48,1,148
10110 DATA0,0,0,0,0,0,0,0
10120 DATA0,0,0,0,240,0,0,254
10130 DATA0,0,255,128,0,255,224,0
10140 DATA255,248,0,255,254,0,49,143
10150 DATA192,49,143,224,49,143,128,255
10160 DATA254,0,255,252,0,255,240,0
10170 DATA231,192,0,193,224,0,192,112
10180 DATA0,128,56,0,128,12,0,0